home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_61_Banner 3.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  1.6 KB  |  81 lines
  1. on mouseEnter me
  2.   set i to line 23 of field "storeData"
  3.   if i = EMPTY then
  4.     nothing()
  5.   else
  6.     cursor(280)
  7.     puppetSprite(the currentSpriteNum, 1)
  8.     set the member of sprite the currentSpriteNum to "Ban3_rl"
  9.     case i of
  10.       "1":
  11.         set x to 1
  12.       "2":
  13.         set x to 2
  14.       "3":
  15.         set x to 3
  16.       "4":
  17.         set x to 4
  18.       "5":
  19.         set x to 5
  20.       "6":
  21.         set x to 6
  22.       "7":
  23.         set x to 7
  24.       "8":
  25.         set x to 8
  26.       "9":
  27.         set x to 9
  28.       "10":
  29.         set x to 10
  30.       "11":
  31.         set x to 11
  32.       "12":
  33.         set x to 12
  34.       "13":
  35.         set x to 13
  36.       "14":
  37.         set x to 14
  38.       "15":
  39.         set x to 15
  40.       "16":
  41.         set x to 16
  42.       "17":
  43.         set x to 17
  44.       "18":
  45.         set x to 18
  46.       "19":
  47.         set x to 19
  48.       "20":
  49.         set x to 20
  50.     end case
  51.     set the text of field "whichBox" to "box" & x & "."
  52.     put line x of field "storeData" into field "temp"
  53.     updateData()
  54.     set the text of field "roll info" to "Click here to get info on " & field "appName"
  55.     if x < 10 then
  56.       set the member of sprite 52 to member ("s0" & x)
  57.     else
  58.       set the member of sprite 52 to member ("s" & x)
  59.     end if
  60.     set the visible of sprite 52 to 1
  61.   end if
  62. end
  63.  
  64. on mouseLeave me
  65.   cursor(-1)
  66.   puppetSprite(the currentSpriteNum, 0)
  67.   cursor(-1)
  68.   set the text of field "roll info" to " "
  69.   set the visible of sprite 52 to 0
  70. end
  71.  
  72. on mouseDown me
  73.   set i to line 23 of field "storeData"
  74.   if i = EMPTY then
  75.     nothing()
  76.   else
  77.     puppetSprite(the currentSpriteNum, 0)
  78.     go("info")
  79.   end if
  80. end
  81.